home *** CD-ROM | disk | FTP | other *** search
/ Suzy B Software 2 / Suzy B Software CD-ROM 2 (1994).iso / extras / programm / gemfsc20 / gemfsc20.lzh / GEMFBIND / AESSCRP.S < prev    next >
Text File  |  1993-03-10  |  893b  |  37 lines
  1.  
  2. ;*========================================================================
  3. ;*
  4. ;* AESFAST Public Domain GEM bindings.
  5. ;*
  6. ;*========================================================================
  7.  
  8.  
  9. ;*************************************************************************
  10. ;*
  11. ;* Scrap manager routines.
  12. ;*
  13. ;*************************************************************************
  14.  
  15. ;-------------------------------------------------------------------------
  16. ; scrp_read
  17. ; scrp_write
  18. ;-------------------------------------------------------------------------
  19.  
  20.           globl     _scrp_read
  21. _scrp_read:
  22.           move.l    #$50000101,d0       ; AControl  80,0,1,1
  23.           bra.b     scrp_do
  24.           globl     _scrp_write
  25. _scrp_write:
  26.           move.l    #$51000101,d0       ; AControl  81,0,1,1
  27. scrp_do:
  28. ;          .cargs    #4,ptr.l
  29.  
  30. ptr             =    4
  31.  
  32.           lea        ptr(sp),a0         ; -> addrin
  33.           jmp        aes_do
  34.  
  35. ;          end of code
  36.  
  37.